Public Class AttributeCleanupResultDetailList
    Inherits List(Of AttributeCleanupResultDetail)

    Public Overloads Function FindAll(ByVal SourceAttributeCleanupSet As AttributeCleanupSet) As AttributeCleanupResultDetailList

        Dim acrdList As AttributeCleanupResultDetailList = New AttributeCleanupResultDetailList

        Dim acrd As AttributeCleanupResultDetail
        For Each acrd In Me
            With SourceAttributeCleanupSet
                If acrd.AttributeName = .AttributeName And acrd.CurrentValue = .CurrentValue And acrd.NewValue = .NewValue Then
                    acrdList.Add(acrd)
                End If
            End With
        Next

        Return acrdList

    End Function

End Class
